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3 .SBTTL STANDARD DEVICE ROUTINE TABLE & CONSTANT AREAS 
i .TITLE MAINDEC-11-DTDUA-A DUL1 DEVICE ROUTINE FOR MPG 
: ;REVISION “A” 
5 sFILENAME OF “TDUAAO.MPG” ON MPG/XXDP MEDIA 
u sMACY LL: DTDUA® , DTDUA? /CRF :SYM/DOC=DTOUA” .Pi1 | 
22 ‘BAER t Ue LUNCH OF cae eee FILE: ELEV 
6} ocoo00" .CSECT ULI 
ES “Beso Bae 
es 
&S :THE FOLLOWING TABLE IS IN THE STANDARDIZED FORMAT REQUIRED 
6 "TO INTERFACE WITH MPG. 
68 
63 o900000° 007302 LOCZ: .WORD DVREND-. ;DEVICE ROUT SIZE IN BYTES 
0 poo0g2’ 900009 DFLGWD: .WORD 0 :DEVICE ROUT FLAGWORD 
2 oo000 WAITMD= 100000 ; *NOWAIT’ FLAG 
une BRKFLG= 200 : BREAK INST FLAG 

74 000100 WRIERR= 100 : WRITE INT ERROR FL | 
75 900040 RDIDSC= 40 : READ INT DATA SET CHG ERR 
76 090020 ROIERR= 20 : READ INT 
77 090010 WRTERM= 10 : D0 WRITE INATION 
78 000004 ROTERM= 4 : READ TERMINATION 
73 000092 WRESY= 2 : WRITE BUSY | 
80 000001 ROBSY= | : READ BUSY 
Be goon" ponte SYNC: WORD SYNCB : CURRENT CHARACTER 

’ 00: CNT: : NSYNC : SYNC COUNT 
84 900010’ 000000 “WORD «OO INTERFACE WORD 8 3 (NOT USED) 
as goodie" go9009 “WORD 0 INTERFACE WORD 8 4 (NOT USED) 
65 Boogie’ DOD00 ‘Hoep f INTERFACE WOE 9 (NOT LeEDD | 
68 Qo0020" 990005 SIZE: WORD 0 $A OF BYTES. TRANSFERRED / UNIMAP FLG | 
Sues: jue Helio. “8 [ego Fist Danie east ae | 
91 ere Rane IVCTAD: “WORD i tine T VECTOR Bor | 
$2 000030’ 000240 ROPSWD: :WORD 240 Re PROC STATUS WORD (BR 5 
33 o0t3e" WRPSWD: . WORD 240 WRITE INT PROC STATUS WORD (BR 5S) 
a4 * 001464 “ HSKEEP- : ING ROUT REL ADR 
85 000036’ 001SS6 “WORD REPORT- :REPORT ROUT REL ADR 
89 Doooe’ OOTa76 GRD DATAER ATH ERROR COUNTER REL ADR | 
9g art eye “WORD  TOUTER- :TIME OUT ERROR ROUT REL ADR 
183 Boooee" poODoE Coe DOD IEEE NCH AOR 

(00S0’ = : 

18i 00052" ieee rete “WORD 0 : USE’ OBE PRINT ROUTINE BRANCH ADR 
102 900054" 900000 CLIST: WORD O CMNO PRINT ROUTINE BRANCH AOR 
193 000056’ o00900 BINASC: .WORD 0 :CONVERT BINARY TO ASCII ROUT BR ADR 
104 o00060° 909000 BTASLZ: :WORD 0 :CONVERT BINARY TO DECIMAL ASCII BR AOR 
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105 000062" 000000 DECASC: .WORD 0 sCONVERT PACKED DECIMAL TO ASCII BR ACR 
1s GBR: HEE ere 88 ay rear 
109 Goxure” rst C: “tonp § CLEAR AMT vekfor Rout ake apa” 
110 74? R NINT: “WORD O ‘git FROM 7 
’ eas 3 « 5 
Has we ig Se ean 
114 104’ ; -. : V 
He Bn. Bes Rae ee Rast 
216 099119" es “WORD TE-. ‘ADR OF MODEL VECTOR TBL EXTEN 
il? 000112" 20 .WORD DVCPTE- :ADR OF COMPILER TBL EXTEN. 
118 000114* dGilte “WORD  DVIWST-. :ADR OF DEV INTERFACE WO SYM TBL 
15h RRLS: use OStIE ORES: SET Rest AMEUR PSL SESUETET IHG © 
1e3 QO01eN’ Oleg 043125 -ASCIT  /RBUF / :THE DEVICE REGISTERS BASE ADDRESS. 
(Se Solas” (ISAM 051123 “ASCII. 7TCSR/ 
126 000136’ OO0004 “WORD 4 
4 900140" 1124 043125 ASCII {TBUF / 
1e8 cated 1520 051123 ASCII /PCSR/ 
130 000152" “WORD 2 
131 000154’ DVREGE= . 
133 g00154" 120 001 DVCMDS: .BYTE 420,001 ;VALID. DEVICE FUNCTIONS 
13S 000160" est: 001 “BYTE 130,001 : BIT 7 = NPR DEV 
136 O00 ibe" 003434 : WRITE : BIT 3 = MASSBUS DEV 
1 164’ 160 001 -HORD 160, 060i BIT 0 = 2 WORDS FOR ADR 
136 000176" ee BOSE ren. oe 
140 172’ 002224 d NOWAIT- 
141 000174" 375 ooo “BYTE 375.0 
142 000176’ 002154 “WORD walt-. 
143 000200’ 374 000 “BYTE a7 0 
144 gode0e’ 001412 WORD ORT- 
145 .- wae 000 “BYTE 373,0 
ie Gees: FE on we Sea 
1 le’ 002556 ; CRESET-. 
149 000214" ~—«- 37] 000 “BYTE 371,60 
1S0 O00216’ 902356 : CALt-. 
151 Sarees 370 000 -BYT 37,0 
1 eo” 36 000 BYTE 37,0 
154 000226’ 002346 “WW ANSWER- 
{ee pooeae’ ooaeg «2 “FORB  HBRGUP- 
125 BpnSsa 365 009 “BYTE 365.0 
15e * 902434 “WORD geNb-. 
i593 264 00 “BYTE  964,0 


000240 
166 000242" ooe420 “WORD RECY-. 
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SO QOOS ROSS POP OP0 00 SRR D DOM NODS YIN reer re rr o 
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oo0e44’ 363 000 .BYTE  363,0 
000246" 002734 “WORD MODE-. 
000250’ : ooo .BYT ae 
. 4 = 
Gouees 009 Be 31,0 

’ 46 .WORD NSTRIP-. 
000260’ 360 000 BYTE 360 0 
ae = i ee 
000270’ 356 coo -BYTE  356,0 
000272’ “ NORMAL -. 
000274’ 002328 000 “BVTE 355.0 
go0e7s; 0020 - WORD systst-. 
pone 002612 “FORD EVEN-. 

* 383 000 -BYTE  353,0 
000306’ 002616 -WORD  ODD-. 
000310’ 352 000 “BYTE 352.0 
000312’ 002630 -WORD  NOPAR-. 
000314" 351 000 “BYTE 351.0 
Bes: So ae ik 
000322’ 003074 “WORD  PRESET-. 
000324’ 347 000 “BYTE 347.0 
000326’ 002140 -WORD  GENPAR-. 
000330’ 346 ooo “BYTE 346.0 
000332’ 002074 “WORD  CVSYNC-. 
000334’ 345 000 “BYTE 345.0 
000336’ 002306 -WORD READY-. 
000340’ 177777 “WORD 177777 : TABLE TERMINATOR 
000342’ 047516 O40S27 OS2111 DVPKTE: .ASCII /NOWAIT/ :PACK TABLE EXTENSION 
000380’ 376 000 -BYTE 376,0 
000352’ 020040 o40S27 052111 “ASCII 7 WAIT’ 
000360’ (375 000 “BYTE 375.0 
000362’ OS2i23 OS2i01 osises “ASCII /STATUS/ 
000370’ 374 oco -BYTE 374,0 
000372’ 047503 047125 oS1S524 "ASCII /COUNTS/ 
oo0400’ 373 090 -BYTE 373,0 
onoyd2’ 051103 051505 052105 “ASCII /CRESET/ 
OUN4IG’ 372 090 “BYTE 372.0 
000412’ 020040 O40503 046114 “ASCII 7 GALLZ 
000420’ «37 000 “BYTE 371,0 
000422’ 044514 OS2i23 047105 [ASCI /LISTEN/ 
000430’ 370 000 “BYTE 370.0 
000432’ 047101 053523 051105 ASCII 7ANSWER/ 
COO44O’ 367 000 BYTE 367,0 
N00442’ O40S510 043516 050125 ASCII /HANGUP/ 
OO04SO’ 366 000 YTE  366,0 
000452’ o20040 042523 o42116 ASCII 7 SEND/ 
000460’ 365 000 BYTE 365.0 
000462’ O2C540 O42S22 053103 ASCII 7 RECV/ 
900470" 364 900 YTE 364.0 

72’ O20040 O47515 o4e504 ASCII 7 MODE/ 
oocsos’ «363 000 “BYTE  363,0 
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050111 “8S I / STRIP/ 
OSO111 eh ZRStRIP/ 
0S4114 ASCII ZPUPLX/ 
OS4114 ASC I SHOUPL F X/ 
046101 "ASCII /NORMAL/ 
-BYTE 356.0 
052123 "ASCII 7SyY8TST/ 
‘BYTE 355.0 
047105 "ASCII 7 EVEN’ 
-BYTE 354,0 
042104 SASCII 7 ‘ODD 
“BYTE 353.0 . 
051101 "ASCII 7 NOPAR/ 
“BYTE 352.0 
051524 "ASCII 7 BITS 
“BYTE 51,0 
052105 “ASCII /PRESET/ 
"BYTE 350,0 
051101 “ASCII /GENPAR/ 
-BYTE 347.0 
041516 "ASCII 7CVSYNC/ 
"BYTE 0 
os4S04 "ASCII 7 READY/ 
“BYTE ,0 
DVMVTE: .WORD 376,MSFMT1-LOCZ 
“WORD  375,MSFMT1-LOCZ 
“WORD 374; MSFMT1-LOCZ 
“WORD 373,MSFMT1-LOCZ 
“WORD  372,MSFMT1-LOC 
“WORD  371,MSFMT1-LOCZ 
"WORD 370, T1-LOC 
[WORD  367,MSFMT1-LOC 
“WORD  366,MSFMTI-LOC 
“WORD 35, MT1-LOCZ 
WORD 4' MSEMT1-LOCZ 
“WORD  363;MSFMT2-LOCZ 
-WORD  362,MSFMTI-LOCZ 
“WORD 361,MSFMT1 
- WORD *MSFMT1-LOC 
, *MSFMT1 
-WORD  356,MSFMT1-LOCZ 
“WORD 355, MSFMTI-L 
“WORD 354) MSFMTI-L 
“WORD *MSFMT1-LOCZ 
“WORD : ENTL-L 
"WORD "MSFMT2-LOCZ 
“WORD 350, MSFMT1-LOCZ 
"WORD 347’MSFMT3-LOCZ 
“WORD  346;MSFMT3-LOCZ 
WORD 34S’ MSFMT1-LOGZ 
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373 : COMPILER TABLE EXTENSION 
275 001032’ 003 376 OVCPTE: .BYTE 3,376 :NO WAIT 
2 001034" 004537 000012 -WOR 4537.10. aoe 
$36 votes oowess ooos12 ‘ae de3 10. : 
279 O010%6’ 004 374 -BYTE 4.374 : STATUS 
g80 O010S0" 04537 Oo0tle o01002 - WORD 1537 10. , 1002 sma 

ee S : 
ses 501060" o04e3?7 00081 001001 “HORD 7,10. , 1001 
283 001066’ 003 372 -BYTE 3,37 sCONTROL RESET 
284 001070’ 004537 o00012 “WORD 4657.10. 
28S 001074 003 371 -BYTE 3,371 CALL 
oes rinbted oe ‘BYE 4532410. LISTEN 

a . ‘ $ 
288 cobtct onus 000012 “ 4837, 10. 
289 001110’ 003 367 “BYTE 3,367 : ANSWER 
290 OO11l2’ 004537 o00012 :WORD 4637,10. 
291 001116’ 003 “BYTE 3,366 SHANG UP 
eS2 001120" 004537 000012 . 4637, 10. 
2°33 001104’ 003 “BYTE 3,305 : SEND 
e%4 O0ile6’ 004537 000012 ‘ 4$37, 10 
295 001132’ 003 4 ‘BYTE 3,36 : RECEIVE 
2% 001134’ 004537 o000ie : 4637.10 
297 001140’ O04 363 "BYTE 4 :MODE Vv 
298 001142’ 004537 o00012 oc0000 “WORD 4537.10. ,0 2 
299 001150’ 003 — 362 -BYTE 3,362 ; STRIP 
300 001152" 004537 cODdle "WORD 4837.10 
301 001156’ 361 "BYTE 3 ;NO STRIP 
302 001160’ 004537 oD0D1e “WORD 4837.10. 
303 001164" 003 360 “BYTE 3,360 sFULL DUPLEX 
304 001166’ 004S37 cD0012 “WORD 4837.10. 
305 001172’ 903 357 “BYTE 3,35? sHALF DUPLEX 
306 OO1 17a 004537 o000ie “WORD 4637.10 
307 001200’ 003 356 "BYTE 3,356 sNORMAL MODE 
308 001202’ 004537 o000l2 “WORD 4537.10. 
303 001206’ 003 355 “BYTE 3,355 ;SYSTEM TEST MODE 
316 601210’ 004537 oD0012 “WORD 4537.10. 
311 001214" 003 354 “BYTE 3,354 sEVEN PARITY 
3le 001216’ 004537 o00012 é 4837.10. 
313 OOle22’ 003 353 “BYTE 3.353 :0DD PARITY 
214 001224’ 004537 o00Cl2 “WORD 4637.10. 
sie Doles” oO¥es? a00RTS BYTE 35, pees: 
3/6 001236’ sat 351 "BYTE 4.35] :BITS V 
318 001240’ 004537 oc00012 coon “WORD 4537.10.,0 
319 001046’ 003 350 "BYTE : PRESET 
320 bo 1¢50" 004537 00001¢ “WORD 4637.10. 
321 1254" 00s 34 -BYTE 4? :GENERATE PARITY V AT V 
322 001256’ 004537 000012 ooD000 “WORD 4837,10.,0,2 

001264’ o0000e2 
323 001266’ 00s 346 .BYTE 5,346 sCONVERT SYNC V AT V 
324 001270’ 004537 o00012 op0cc0 “WORD 4637,10..0.2 

001276’ c00002 
225 001300’ 003 345 .BYTE 3,345 READY 
326 001302’ 0045327 occot12 "WORD 4837.10. 
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; DEVICE INTERFACE WORD SYMBOL TABLE 
OVIWST: .ASCII /SYNC/ 
.WORD DEVIWI 
ASCII /SNT/ 
.WORD DEVIW2 
sEND OF TABLE 


: MODEL STATEMENT TABLE EXTENSION 
MSFMT3: .BYTE 377 


MSFMT2: [BYTE 377 
MSFMT1: .BYTE 0 
EVEN 


;#### CONSTANTS & WORK AREAS ##%# 


KPST= . 

ISTAT: 
RIRCSR: .WORD 0 :STORAGE FOR DEV REG'S ON READ INT 
RIRBUF: .WORD 0 
RITCSR: :WORD 
WISTAT: 
WIRCSR: - WORD : ;STORAGE FOR DEV REG’S ON WRITE INT 
WITCSR: .WORD 0 
CSTAT: .BLKW 3 ;DEV REG CURRENT VALUES STORAGE 
OBJADR: .WORD O ADR OF CURRENT USER STMNT 
RDADR: WO 0 re DATA ADR FOR READ 
RDBCNT: : WORD : TE CNT CNT FOR READ 
WRAOR: . ADR FOR WRITE 
WRBCNT: . 0 s CURR BYTE CNT FOR WRITE 
ROSIZE: .WORD 0 :# OF BYTES TRANSFERRED ON READ 
WRSIZE: ‘ : 8 0 TE TRANSE ERRE ITE 
TOCNT: ; ?# OF ENTRIES INTO TIMEOUT ROUT 
CMASK: .WORD 177400 ‘PARITY BIT CLEAR MASK 
PARE: . 0 ;PARITY BIT CURR POSITION 
ISCNT: {WORD 0 : INTERRUPT’ SYNC CHAR CNT 
PROCNT: “WORD O “WRITE’S PAD CHAR CNT 
BYRD: - WORD 0 ;BYTES READ COUNT (READ) 
BYWR: - WORD 0 :BYTES WRITTEN COUNT (WRITE) 
RDCNT: [WORD 0 ;READ CMND COUNT (READ) 
WRCNT: .WORD OQ ‘WRITE CMND COUNT (WRITE) 
BRKCNT: :WORD 0 :BREAK CMND COUNT (BREAK) 


SES 0037 


wee eee | ee oe ee ee mm mw a ni ee, ee ee ee. ———— 


ores ee- - 


' MAINDEC-11-DTDUA-A  DUL1 DEVICE ROUTINE FOR_MPG MACYi1 27{732) 24-SEP-76 14:10 PAGE 3-6 SES 0038 
_ OT -Pll STANDARD DEVICE ROUTINE TABLE & CONSTANT AREAS 





MISCNT: .WORD 0 SMISC. CMND COUNT 
PARCNT: “WORD 0 eM E COUNT 
OVRENT: Hoe OB | 
a 1a hot ER PRRORS- COUNT 
eo EE ce 
DATAER: [WORD 0 
| RDICNT: (WORD 0 READ INTERRUPTS COUNT 
| WRICNT: [WORD 0 SWRITE INTERRUPTS COUNT 
334 Oo1446" HSKPEN= . 
336 ooogsa XXX 0 ;VALUE TO BE TAILORED BY DEV ROUT 
EE o00200 CACHES 200 :SYSTEM FLOWD BIT DEF. 
409 oo0021 - CNTNUM= HSKPEN-COUNTS/2 :# OF STATISTICAL COUNT WORDS 
ue o00026 SYNCB= 026 SPRESET SYNC CHARACTER | 
404 eoooas NSYNC= § SPRESET # OF SYNC CHARACTERS 
ine 001446" 037026 PCSRV: .WORD  ISYNCM#BITS@+PARENB+SYNCB ;PCSR REGISTER BASE VALUE 
408 | 
498 001450" PATCH: .REPT 20. SPATCH AREA 
410 ORD OO 


ne meee | Greenman. eee ee een <emeeee ee —~er ee 


ce ee ee ee ee ee mee ee en saat carina 
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NAME EQUATES 
413 .SBTTL DEVICE REGISTER NAME EQUATES 
| 
415 
41 VICE REGISTER QUATES RELATIVE TO RCSR AND 
4 iBT NAME EQUATES FOR THEIR BITS. 
419 oo0000 RCSR= 0 ;RECEIVER CONTROL & STATUS 
42] 100000 psc = 100000 ;DATA SET CHANGE 
22 040000 RING = 40000 
423 020000 CTS === 20000 SCLEAR TO SEND 
424 gi0009 CARIER = 10000 ; CARRIER 
“ES 1 Osk_ = = «1000 ;DATA SET READY 
426 g00400 STRSYC = 400 ;STRIP SYNC 
427 000100 RINTEN = 100 jRECEIVER INTERRUPT ENABLE 
428 o00040 DSCIE = 40 SDATA SET CHANGE INT ENABLE 
429 gande0 CHSYC = 20 ; SEARCH 
: gms = ¥ :REQUEST TO SEND 
431 pooo02 DIR = 2 ;DATA TERMINAL READY 
433 pooo02 RBUF= 2 ;RECEIVER DATA BUFFER 
435 190000 RXER = 100000 ;RECEIVER ERROR 
436 040000 OVR = 40000 SOVERRUN ERROR 
437 g20000 FRM = 20000 ;FRAMING ERROR | 
438 010000 2 ;PARITY ERROR 
440 pooo0e PCSR= 2 ;PARAMETER CONTROL | 
42 030000 BT = 30000 NODE BITS 
443 030000 ISYNCM =~ 30000 S INTERNAL SYNCHRONOUS MODE | 
444 o20000 ESYNCM = 20000 sEXTERNAL SYNCHRONOUS MODE 
44S 000000 ISOCHM = 0000 ; TSOCHRONQUS NODE 
006000 WOLENG = 6000 SWORD LENGTH BIT 
447 006000 T = 6000 :8 BITS | 
448 004000 BITS? = 4000 :7 BITS 
44g o02000 BITSh = 2000 :6 BITS 
4So BITSS = O000 ;5 BITS 
451 001000 PARENB = 1000 SPARITY ENABLE (0 = NO PARITY) 
452 p00400 N = 400 SPARITY SENSE (0 = ODD, 1 = EVEN) | 
454 ooo004 TCSR= 4 ; TRANSMITTER CONTROL & STATUS | 
: 1 DNA = = -—« 100000 :DATA NOT AVAILABLE 
457 014000 MAINTM = 14000 aiM , Move pi S | 
00 MSTRST = 400 
459 000100 TINTEN = 100 ant ep td ENABLE 
TONAIE = 4 it ef 
461 20 TSEND = 20 j TRANSMIT 
462 g00010 HLFOPX = 10 7H 
463 1 BRK = (1 SBRERK 


- 


465 000006 TBUF= 6 ; TRANSMITER DATA BUFFER 
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467 .SBTTL DU11 SUPPORT ROUTINES ENTERED FROM MPG | 
469 
420 sDEVICE ROUTINE HOUSEKEEPING 
| 47 ;JSR RS. HSKEEP S/R CALL 
| ¥73 : WORD O OR 1 0 = 00 HSKP PER OPSW 
| yay : 1 = UNCOND. DO HSKP 
| Ws :R2 = PROG’S OPSW 
| tee ‘DESTROYS RO,R1 
| 473 001520’ 010700 HSKEEP: MOV PC, RO ;SET UP FIRST WD ADR 
; 480 001522? 062700 177610 ADD  —- BHSKPST-. , RO 
| 481 001526" O1e701 000046 MOV SHSKPEN-HSKPST/2, R1 :SET UP 8 HORDS | 
| 482 001532" TST (R5)+ S ONCONDIFIONALLY HSKP? 
_ 483 00.534" 001005 BNE 10$ :N, Y=10$ 
wey 001538’ 032708 000004 git SHEKPEP , Re 5OPSH CIFY DON’T HSKP COUNTS? 
01542" Ooi Q 1 : 
| “8B OO15H4’ 1 000021 SUB #CNTNUM, RI LREnOVE THEM FROM LOOP COUNT 
| 487 001550" 103: CLR (RO)+ L NECESSARY AREAS 
188 001 * 005301 DEC RI 
at ’ 
490 001556’ pOLs73 000026 176220 ICONS: MOV ISYNCB, SYNC s INITIALIZE SYNC CHARACTER 
491 001554" O12767 OO000S 176214 MOV #NSYNC “INITIALIZE SYNC CHAR COUNT 
492 001572’ 012767 037026 177646 MOV t1SyNCHg] TsaePrRENBeSINg PCSRV ;INITIALIZE PCSR REG VALUE 
483 O01600’ 012767 177400 177566 MOV #177400, CMASK SET PARITY CLEAR MASK TO 8 BITS 
494 001606’ 005067 177564 CLR PARB -SET PARITY Bil POSITION TG 8 BITS 
uz 001612’ o0020S RTS RS EXIT IN-LINE 
497 
438 ;DUL1 REPORT ROUTINE (ALSO “STATUS” AND “COUNTS”) | 
500 : RS. REPORT ZR 
an ., PP ap P/Rosiohb 
: BIT 1S = CMND MODE 
503 : BIT 9 = PROG STMNT CALL 
aod : BIT i = DO STATUS REPORT 
pus : BIT O = DO COUNTS REPORT 
507 001614" OO4067 004116 REPORT: JSR RO, SAVREG : SAVE bts: 5 RO RS 
508 001620’ 004767 004144 JSR PC’ SUPTAD :SET UP PROG TBL ADR IN R3 
509 001624’ 011504 MOV (RS), RY GET FLAGW 
SiO 001626’ 032704 ooD00e BIT ae Ra ; GOING TO DO STATUS DISPLAY? 
S11 001632’ 001403 BEQ N- 
Si2 001634’ 004567 004150 ISR RS, STSTAT 5a STORE STATUS REG’S 
513 001840’ 177506 .WORD  CSTAT-. 
S14 001642’ 032704 177776 cs: BIT #177776, R4 s DISPLAYING CNTS_ AT END OF 
515 001646’ 001012 BNE 15$ PROG PASS? (Y,N-15$) 
S16 001650’ 010700 MOV RO SET uP ADR oF ON i 
517 001652" 062700 177532 ADD #COUNTS-. , RO | 
18 001655: o1e701 000021 MOV SCNTNUM, Ri :GET # OF CNT WORDS 
19 001662’ 0057 10$: TST (RO)+ : THIS CNT WORD = 0? | 
S20 001664’ 001003 BNE 1S$ 1S$ 
621 001666’ 005301 DEC Ri ‘BEC WORD CNT 
S22 001679’ 001374 BNE 10 -CK’ED ALL WORDS? (Y,N-10$) 





- ee me 0 nee rene ne ee te er aes ES CE ce» eee eee 


Z 


CEE See CURC Ese GREGG SSSR T ONE oe MOE ee 


S64 


oO 


Pm a he st es me pas = pe 


-- 
alo 


#283 


“I~ 
— 
ed 


Rae 


888888 
MOLO 


-_ 
o 


JcuU.3e 


ee 


i 
INEM LOM SVQ LOBE US LIVE LSOMNVIMNNVSA £VUSLVUE LOBMOIS'VOIG £MO£O 


i 
2 
3 
: 
3 
3 


15S: 


30$: 


40$: 


70$: 


DISCNT: & 
B 


RPTLP: 


szzanye FP 


siigeuPanee 


RPTBAS: .WORD 


% 
@ 


DVREX :60 TO EX he L cuts ARE 0’S 
4S°Rd DOING ST Ug eR ay 
DISCNT *¥,N-DISCNT 
PC. RO *SET UP ADR OF REG’S AT 
ig in i i Eee Up a OF REG’S 
(RO)+ ALL Hots = 0? 
30S ?N, Y-40S 
20$ 
40S 
Ro, PRINT sISSUE ’AT LAST READ INT’ MSG 
17. ; 
RS, DISPST ;DISPLAY STATUS AT LAST READ INT 
WIRCSR , sHR INT. REG STORAGE = 0’S? 
a a 
RS PRINT sISSUE ’AT LAST WRITE INT’ MSG 
Wie 
RS DISPST sDISPLAY STATUS AT LAST WRITE INT 
RS PRINT ; ISSUE CURRENTLY’ MSG 
10. ‘ 
RS, DISPST ;DISPLAY CURRENT STATUS 
1,R4_— DISPLAY COUNTS? 
TEND :Y_ N-RPTEND 
#CNTNUM, RO *SET UP # OF WORDS 
Per. se :SET UP ADR OF CNTS 
PC Re ri ;SET UP TBL ADR 
(R2)+, RPTBAS :MOV_MSG ADR TO S/R LINKAGE 
RO. SAYREG :SAVE ALL REG’S 
cri) RO :GET CURRENT COUNT 
RS, JBINASC :CONVERT IT TO ASCII 
RO, RESREG sRESTORE_REG’S 
(R1)+ *POINT AT NXT CNT 
RO *DONE ALL WORDS? 


RPTLP 

RS, PRINT 

CNTSMG-. 

eae 
RERONG-. 

RO, RESREG 
(RS)+ 

RS 


?Y N-RPTLP 
:G0 ISSUE COUNTS MSG 


TSMG 
; ISSUE “END OF REPORT” MSG 


;RESTORE REGISTERS 
;SET UP RETURN POINT 
;EXIT IN-LINE 
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| = §79 
580 
| 581 002130" 004360 REPTBL: 
' 
| BS Behe beats 
021 sd l 
Bia: 
Bao osiud? OMNES iS eu 
S88 002146’ . WORD ae 
589 002150’ - WORD CNTPAR-RPT 
5390 00e15e" 44 a CNTFRM-RPT 
591 002154’ 004561 “WORD  CNTOVR-RPTBAS 
592 002155" WORD “RPT 
| §93 oge! : 15 -WORD  CNTDNA-RPTBAS 
/ 594 ig2’ 004632 “WORD CNTTOE-RPTBAS 
| §95 O0e164" 004650 WORD DER-RPT 
96 002166; 004702 ;WORD  CNTRDI-RPTBAS 
| 237 170’ 004716 "WORD  CNTWRI-RPTBAS 
| §99 
, 600 
| 601 
| b0e ; TIMEOUT ERROR ROUTINE 
604 ;JSR RS, TOUTER S/R CALL 
606 002172’ 00S267 177174 TOUTER: INC TOCNT sADD 1 TO TIMEOUT CNTR 
B07 ope 176 be67e7 177170 00010 cH TOCNT, #8. “EIGHTH TIME THRU ON THIS 1/0? 
’ 001401 9 1 :N Y-1 
etd math ? 10$ ye RO SAVREG sERIT a ey ore 
nn??10’ 4 
Bt 02214" SAC oes 1933 13 INC TOECNT $ BOD B15 REBUT ERROR CNTR 
612 O02220" 003544 JSR -SET UP RCSR & PROG ot ADR’S 
613 oneee4 OO4557 003560 JSR RS: STSTAT jose CURRENT S 
614 | Lig .WORD  CSTAT- 
pie pecese, 271 are cote bt (R3) RESET SFT MATTING FOR a ORT OFS LAG 
9 1 | 
El? OoeeHe” > Dosols 9k Rec ISSUE TIMEOU MSG 
ets : BONE? 003476 in 13T0-ERNBAS STORE REGISTER 
£33 presee” Ot nee ROP OS RE — is a 
621 002256’ 000177 175566 IMP JCUPGER :GO te ERROR EXIT 


MAINDES*i1-D7DuR-8  D 
OTDURR. FLL wwe $ 
353 
~ 
ef 
528 
be$ 
S30 
631 
$32 . 
= He iy 
534 : a4 
538 * 001407 
acon 
BY Bees: Bi 
HS po8330" a 
B45 ’ O76 
ewe QosNe" ON27E? 


OR MPG ACYL 271732) 24-SEP-76 14:10 PAGE 4-2 
RED FROM MPG 
:KILL USER PROGRAM ROUTINE 
:JSR = RS KILL S/R CALL 
:R3 = PROG TBL AOR 
‘DESTROYS RO,Ri 
KIL’: MOV R GET RCSR AOR 
SIT ORE ATEACASCIE. (RL ‘BEA INT ENABLES SET’ 
BEG 10$ sY,N-10$ 
JSR — : 15 READ VECTOR SET FOR ME? 
Bre NTEN+SCHSYC*DSCIE, (RI) *: 33, RO INT ENABLES 8 SRCH SYNC 
ISR PC. RRINTV ;RESET READ’S INT VECTO 
108: BI sTINTEN+TDNAIE, TCSR(R) cMeIT INT ENABLES SET? 
J TWVECT : 1S Mate VECTOR SET FOR ME” 
BIC STINTENSTONALE, TCSR(RI) :RESET WR INT ENABLES 
ISR PC RWINTV :RESET WRITE’S INT VECTOR 
20s: Bic sROBSY+WRBSY , OFLGWD “RESET THE BuSY FLAGS 
RTS RS EXIT IN-LINE 


*- a. a2) = 
3f « sets 


eee 2. ewe oe ete eee oc ae . wre mt rr mm et ee ns en Oe ee ee et ee ee ee ee oe a ee ey 
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643 .SBTTL DUL1 NON 1/0 FUNCTION ROUTINES 
651 

6 ;"WAIT FUNCTION ROUTINE 

bos :JSR RS, WAIT FUNCTION CALL 

656 002352’ 042767 100000 175422 WAIT: BIC SWAITMD, OFLGWD sRESET THE “NOWAIT™ FLAG 
fe 002 y° aes ee seats are PC SETA, Bl a Penge F 5 Reon 
p59 Que t3e76 3 000003 175404 ait Y+WRBSY , DFLGWD oR WRITE STILL BUSY? 
661 pesaae" 175442 JSR acIOBsyY MATT Re 1/0 TO COMPLETE 
662 O0c404’ 042713 000010 10$: BIC sWt4IOT, (R32) Re T WAITING FOR I/O TERM 
653 O0e410° OO4767 02206 ISR PC, CKBSY WaT If Dull IS BUSY & DC TERMINATION 
b64 002414" RTS RS TEX! IN-LiNe 

655 

687 ;"NOWAIT™ FUNCTION ROUTINE 

668 :JSR - RS, NOWAIT FUNCTION CALL 

671 O02416’ 052767 100000 175356 NOWAIT: BIS sWAITMC , OFLGWO :SET THE “NOWAIT™ FLAG 
bre 002424" ood2cs RTS RS EXIT IN-LINE 

674 

675 s"CVSYNC” FUNCTION ROUTINE 

677 :JSR_ «RS, CVSYNC FUNCTION CALL 

678 2, DATA RODRE SS 

673 ::WORD CNT BYTE COUN 

681 002426’ 012500 CVSYNC: MOV . (RS)+,RO0 GET T THe pata ADDRESS 

682 000430’ 012501 MOV (R5)+°R1 TE COUNT 

ce ec: ere eRe me amity A ae 
68S cree oes 10S: MOVB (RO}+;Re _ GET THE Nara Brie 

686 OO0C444’ O46702 176724 BIC CMASK; Re :SAVE ONLY PERTINENT BITS 
687 000450’ 020203 R2.R3 :DATA BYTE = SYNC BYTE? 
688 O0e452’ 001002 BNE 20$ :Y N= 

689 000454" 105160 177777 COMB = - 1 (RO) ‘COMPLEMENT THE DATA BYTE 
690 002460" 005301 20$: EC Ri :DECR THE B 

£91 O9e%62" 001367 BNE 10S :DONE ALL BYTES? ‘Y,N-10$) 
£92 O02464’ G0020S RTS RS :EXIT TO USER PRO 


oe 


em ne ee eee ae a a rr ee 


ee a er ee ce a nme - ++ -0 ee ~ 
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| MAINDEC-11-DTDUR-A 


_ DTOURA.P11 


= ~ 35 &. + = S S 

geo in 8 § Bat 

& we eS tebe ce. EB os 
Sace Se ESF . Ban eetnt 

jo geet optiGtie & tye Esse. 
So. Baa wih SW ee 
B33 wewoene. Ese Sonn S Bet ad? 
Gee cenetbetie delat og! Baer 
Bs, Subse ecaedekt Sse aes 


;"GENPAR” FUNCTION ROUTINE 


Ororcaae -— w -ounvo w 
Soc Se ITs Sayles cyl 


30$ 
40$: 
Sos 


boi 80d 176740 


176612 


76674 


ggu% 
EE: 


eS 


RESO CRRRRR ERR ERRRRERE RRR ROR ARM ORS 


— ee ee — me a een ee re ee ee i a er re ee es ee ee ee ew ees - ee en ne ay 
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i 
i 
} 
739 .SBTTL DUI NON-INTERRUPT 1/0 FUNCTION ROUTINES 
¢ i 
731 
Z s"CALL” AND “ANSWER” FUNCTION ROUTINES 
7} :JSR RS, CALL FUNCTION CALL | 
re :JSR RS ANSWER FUNCTION CALL 
73? 902574" CALL: 
738 002574" 052777 o00002 175222 ANSWER: BIS B8OTR, DOREGAD SET DATA TERMINAL RDY IN RCSR 
739 O0ce602’ 032777 O01000 175214 108: BIT #DSR’ JDREGAD ‘DATA SET RDY 
miO 02619" 001003 BNE NINTEX iN, Y MINTEX 
74i OO0261e’ 004577 175230 SR RS, ICIOBSY sRELE ONTROL FOR 1 POLLING LOOP 
a5 2° > 176576 NINTEX inc | OAISCNT BOOT TO MISC. CRND COUNT 
a pocees. poRsee a) ns i600 1 10 USER Proc 
746 
77 | :"LISTEN” FUNCTION ROUTINE | 
745 JSR RS, LISTEN FUNCTION CALL 
751 002625’ 032777 O40000 175170 LISTEN: BIT SRING, JOREGAD :IS THE RING BIT SET? | 
752 002634’ 001371 BNE ——- NINTEX 3N, Y-NINTEX ae 
$33 , po4e77 175204 ISR KS aCIOBSY RELERSE CONTROL FOR 1 POLLING LOOP 
eh poses , i BR STEN ?G0 CK RING fiGAIN ! 
756 
737 ;"READY™ FUNCTION ROUTINE 
753 :JSR RS, READY FUNCTION CALL 
761 OO2644’ 032777 010000 175152 READY: BIT SCARIER, ADREGAD ;1S THE CARRIER UP YET? 
762 002652’ 001362 BNE NINTEX -NINTEX 
763 COc6S4’ 004577 175166 ISR RS. SCIOBSY 'RELEASE CONTROL FOR 1 POLLING i00 
soe 002660" 900771 Be READY :G0 CK CARRIER AGAIN 
766 
767 " s"RECV" FUNCTION ROUTINE | 
769 ;JSR RS, RECV FUNCTION CALL | 
771 OS2662’ 042777 OOONSY 175134 RECV: BIC #ROTS, SDREGAD :RESET REQUEST TO SEND IN RCSR | 
re 002670’ 900753 BR NINTEX :GO TO EXIT | 
774 
ae “SEND” FUNCTION ROUTINE 
77 ;JSR RS, SEND FUNCTION CALL 


779 002672’ 052777 OCOOCOY 175124 SEND: BIS #R0TS, IDREGAD ;SET REQUEST TO SEND_IN RCSR 
780 002700’ 932777 O2e0000 17E11¢6 70$: BIT 8CTS, JOREGAD its CLEAR TO SEND SET? 

728i 002706’ 001244 BNE NINTEX NINTEX 

782 002710’ 004577 175132 JSR RS, ICIOBSY ‘RELEASE EONTROL FOR 1 POLLING LOOP 
763 002714" 000771 BR 70$ =GO CK CLEAR TC SEND AGAIN 


| hake og 
- DTDUAA.P 


aati 


a | 
wo 
o~ 


GRE eee 


Seine 


@Owmowowoowommacn 
bs 2 bh 0 ee 
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093024’ 
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0S2777 
006205 


042777 
006205 


016704 
042764 
000205 


o0000e 


ao8so0 


ocode4 


000400 


000400 


174764 
000010 


175100 


175122 


175036 


ooooo4 


175002 


174772 


000904 


CRESET: 


10S: 


STRIP: 


NSTRIP: 


FOUPLX: 


;"HANGUP” FUNCTION ROUTINE 


#S22,R1 
git saci acsySFu 
MOV #2126,R1 
RI 
60S 
R 
SOs 
BIC #0TR, ADREGAD 
BR NINTEX 
:"CRESET” FUNCTION ROUTINE 
:JSR RS, CRESET 


ats OMe Sct TCSR (RY) 
#20. ,R0 


DEC 
BNE 10$ 
RTS RS 


;"STRIP™ FUNCTION ROUTINE 
;JSR RS,STRIP 
#STRSYC, dDREGAD 
RS 


rer 
nw 


;"NSTRIP™ FUNCTION ROUTINE 

;JSR RS, NSTRIP 
BIC #STRSYC, JDREGAD 
RTS RE 


;"FDUPLX” FUNCTION ROUTINE 
;JSR RS, FDUPLX 


DREG 
aHLFDPK, TCSR(RM) 


24-SEP-76 14:10 PAGE 6-1 


FUNCTION CALL 


HIATHaC de LodB Bourn" 
ay "sive a Cache nen 


one 1S MS COUNTER 


We XHAUS TED eNTa? (Y,N-60$) 
ae BF Yo Rea0s 


LOWER bara TERMINAL RDY 
is TO EXIT 


FUNCTION CALL 


ist tries i BIT 


SECONDS 
SEXIT QO USER PROG 


FUNCTION CALL 


;SET_STRIP SYNC IN RCSF 
;EXIT TO USER PROG 


FUNCTION CALL 


;RESET STRIP SYNC BIT 
;EXIT TO USER PROG 


FUNCTION CALL 
;GET_RCSR_ADR 


;RESET THE HALF DUPLEX SIT IN TCSR 


EXIT TO USER PROG 


IN RCSK 


| MRINDEC- =i1-DTOUR-A DUL1 DEVICE ROUTINE FOR MACY11 27(732) 24-SEP-76 14:10 PAGE 6-2 
' DTDURA.P DULL NON-INTERRUPT 1/0 FUNCT 10N CROUTINES 
eu ;"HDUPLX” FUNCTION ROUTINE 
ae ;JSR RS, HDUPLX FUNCTION CALL 
003050’ O16704 174 HOUPLX: MOV DREGAD, RY T RCSR ADR 
Bue po shea 764 Araare ooo004 BIS ORLEDPX  TCSR(RY) Get F THE HALF DUPLEX BIT IN TCSR 
BY 003062’ o00205 RTS RS ‘EXIT TO USER PROG 
84g 
B50 s"NORMAL” FUNCTION ROUTINE 
gb :JSR RS, NORMAL FUNCTION CALL 
854 003064" 016704 174734 NORMAL: MOV DREGAD, R4 :GET RCSR ADR 
855 003070" 042764 014000 oD0004 BIC BMAINTM, TCSR(RY) :SET MAINT MODE BITS TO NORMAL IN TCSR 
gob 003076’ o0d020S RTS RS “EXIT TO USER PROG 
958 
859 s"SYSTST” FUNCTION ROUTINE 
B61 . :JSR -RS,SYSTST FUNCTION CALL 
B63 003100’ 016704 174720 SYSTST: MOV DREGAD, RY :GET RCSR ADR 
864 003104’ 052764 O14000 ooD004 BIS SMAINTM, TCSR(RY) :SET MAINT ODE BITS 16 SYS TEST IN TCSR 
Bbs 003112’ RTS RS ‘EXIT TO USER P 
867 i 
B68 "EVEN" FUNCTION ROUTINE 
B70 :JSR RS EVEN FUNCTION CALL 
872 003114’ OS2767 001490 176324 EVEN: BIS SPARENB+PARSEN,PCSRV = ; SET PAR ENB 8 PAR SEN SEL IN PCSRY 
873 003122" 000412 BR LDFSSR ?G0 LOAD PCSR REG & EXIT 
875 
B76 :"ODD" FUNCTION ROUTINE 
B7e ;JSR RS, ODD FUNCTION CALL 
880 003124’ 052767 OD1000 176314 ODD: BIS #PARENB, PCSRV :SET PARITY ENABLE IN PCSR SASE 
881 003132’ 942767 OO0400 176306 BIC #PARSEN, PCSRV :RESET PAR SEN SEL TO ODD 
BBE 003140’ 000403 BR LDPCSR GO LOAD PCSR REG 8 EA9? 
884 
B95 :"NOPAR” FUNCTION ROUTINE 
687 ;JSR RS, NOPAR FUNCTION CALL 
889 003142’ 042767 OCOL4Y00 176276 NOPAR: BIC BPARENE+PARSEN, PCSRY  ; RESET PARITY BITS IN PCSR BASE 
890 003150’ 116767 174630 176270 LDPCSR: MOVB SYNC PCSRV ; MOVE CURR SYNC CHAR TO PCSR BASE 
891 003156’ 016704 174642 MOV ORE C 
892 003162’ 016764 176260 oD000e MOV PCeRY PCER(RY) ‘OAD PCSR WITH NEW BASE VALUE 
893 003170’ 012700 000310 MOV #200. RO :SET UP LOOP CNT 
894 003174’ 005300 10$: DEC RO -DELAY A 
895 003176’ 001276 BNE 10$ : 


;B1 
896 003200’ 000205 RTS RS ;EXIT TO USER PROG 


a ee ee 


| MAINDEC-11-DTDUA-A 


. DTDURA.P11 


estat edaisiston 


OOWODWOOWwWWW 
bo bb bB-+ p—2 b= bs h- 2 bh = ps 
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DU11 DEVICE ROUTINE FOR MPG 


MACY11 27(732) 


DU11 NON-INTERRUPT 1/0 FUNCTION ROUTINES 
;"MODE” FUNCTION ROUTINE 


(0000 
002000 
004000 
006000 


001502 MODE: JSR 
MOV 
030000 MOV 
000003 CMP 
BHI 
BEQ 
020000 MOV 
000001 CMP 
BEQ 
BHI 
CLR 
030000 176176 MODCOM: BIC 
176172 BIS 
BR 
002000 MODERR: JSR 
. WORD 
“BITS” 
001416 BITS: JSR 
MOV 
oocoos SUB 
000003 CMP 
BHI 
ASL 
MOV 
ASL 
ADD 
ADD 
000046 ADD 
6090 176114 BIC 
176110 BIS 
176032 MOV 
176030 MOV 
BR 
001706 BITERR: JSR 
. WORD 
176056 NIEREX: INC 
174462 JMP 
177740 OO0040 BITTBL: .WORD 
177700 000100 WORD 
177600 000200 WORD 
177400 000000 WORD 


SR RS, MODE 
cope 


re RO 
sISYNtN, Ri 


aropesT PCSRV 
1. PCSRYV 
RBPCSR 


RRCS 
RO ODECERNBAS 
NIEREX 


FUNCTION ROUTINE 


;JSR «RS, BITS 
:.WORD CODE 


PC, STMADR 
(RS)+,RO 


(RO) + CHASK 
RO). PAR 
ppcsr 
RCS 
FOBT TSCERMBAS 
DATAER 
JCUPGER 
BITSS, 177740, 00040 
$6’ 177700,000100 


BIT 
BITS? 1 7600, 000200 
BITS8, 177400, 000000 


a 

B mn 
ate 
Rog 

8 


24-SEP-76 14:10 PAGE 6-3 


CODE (0, 2, OR 2) 


3 (INT. SYNC) 


a3 


MOOCOM) 
2 (EXT. SYNC) 


r 


D_D 
-OW 
os Bey 
o-~ 
z 
~< 


Y-MODCOM ) 

( TSOCHRONOLIS } 

S IN PCSR BASE 
CET IN NEW MODE ew BITS 

:G0 LOAD PCSR REG & EXIT 


;REPORT INVALID MODE SELECT CODE 
;G0 TO ERROR EXIT 


FUNCTION CALL 
BITS SELECT CODE ‘(5 - §) 


;STORE: USER STMNT ADR 
get i BITS SELECT CODE 


s18 IT A VALID CODE? 
N-BITERR 
CONVERT IT 


CODE E 
SRESET et BITS IN PCSR BASE 
;SET IN THE NEW BITS 
: STORE THIS, et Me PARITY oe MASK 
:STORE ITS PARITY BIT POSITION 
:G0 LOAD PCSR REG 8 EXIT 


;REPORT INV BIT SELECT CODE 


;ADD_1 TO DATA ERROR CNT 
:G0 10 MPG*S ERR RETURN POINT 


PCSR BITS, BIT CLR MASK, 
PARITY BIt POSITION 


SES 0045 
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354 
gss 

356 ;"PRESET” FUNCTION ROUTINE 

358 ;JSR RS, PRESET FUNCTION CALL 

860 003416’ 004567 176134 PRESET: JSR RS, ICONS 60 GO INITIALIZE ALL CONSTANTS 

$61 003422’ 016704 174376 MOV GAD, R4 

See 26" 042764 014011 oocco4 BIC aMAINTM+HLFDPX+BRK, resrth) ;SET NORE MODE, FULL DUPLX IN TCSR 
963 003434" O04S67 177510 ISR RS,L THE PSR 

964 903440" 052714 000400 SIS aBthSVC, (R4) i080 STRIP SYNC git IN RCSR 

865 903444’ O0020s RTS ‘EXIT TO USER PR 


er a ee re ne = ee a ern ee mn ee ee en re a ee ee A er eee 


| MAINDEC-11-DTDUA-A DUI] DEVICE ROUTINE FOR MPG MACY11 27(732) 24-SEP-76 14:10 PAGE 7 SEG 00S! 
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8 .SBTTL DULL INTERRUPT TYPE 1/0 FUNCTION ROUTINES 
«968 
«£9 ;"READ” FUNCTION ROUTINE 
|g? JSR a FUNCTION CALL 
ag WORD oat aA ess (BITS O - 15) 
! sre i 
| $6 03446" 004767 001134 READ: JSR msc ‘o coo se 1s Bust 
os , 7 175676 Mov :STORE T TA 
at: See a ie 
175722 I 
984 003472’ 005067 174324 ck | OERRI THe 
985 76° OHe7b? OO0DEY 174276 BIC _ SROTERM#ROIERR+RDIDSC, ori feae THE x R08 TNO RO FLAGS 
Se oH 3 0 CLR PTOCNT(RS) RESET’ THe TIMEOUT COUNTERS 
, 7 CLR 1 # CF BYTES READ 
a Pe cee lla Er 
22) O0s5a4; OoNS77 I7Hgeb mt, = Ro, ase vec GO SEY UP” READS INT VECTOR ! 
003542’ 900000 20$: .WORD  XXXX 
aay DON" DobaI4 “WORD DURINT-. eg REL. INT ROUT AOR | 
= bu35%6° Obe767 000001 174226 aE righ a Eat S BUSY ise 
aoseeo" Bpe7e4 RBUF (RY) ERROR B 
= Oo3564" OS2714 00120 oats ef BSCHSYC#RINTEN, (RY) SET SEARCH SYNC § INT ENABLE | 
999 9 H :* 
1608 BEaery L 
1001 * 042713 000010 BIC #WTYIOT, (RB) Me T WAITING FOR 1/0 TERM 
toes boseos” Son4os BR 40S 160 fo BIT 
1003 03604" 004577 17423 30s: JSR RS ac TOBY ;MATT FOR 1/0. 10 COMPLETE 
ides Gases’ bodeBs wos: RTS RS’ EXIT INCLINE TO USER PROG | 


erate eres ene -eee nS -eee ae we. 


Ce ee anne $e ee EO SEE SEN x 
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DTDUAA.P11 DUL1 INTERRUPT TYPE I70 FUNCTION ROUTINES 
1007 
1008 
1908 :“WRITE” AND “BREAK” FUNCTION ROUTINES 

: ISR ,WRIT FUNCTION CALL 
igi i708 ABURIIE. © EAMCTION caus 
1913 WORD ADR (NOT ) 
1014 : . WORD ROR DATA RODRESS (BITS O - 15) 
1016 §  HORD V Nor GgeD) 
1018 003616’ 004767 000772 WRITE: JSR PC, CKWBSY GO CK IF WRITE IS SuSY 
1019 003622’ 005267 175570 INC WRENT ‘ADD 1 TO. WRITE CHD COUNT 
1020 O036e6 042767 000200 174146 BIC 8BRKFLG, DFLGWD *RESE HE BRECK F 
1021 , 7 BR WRBRCM G0 TO Wait BREAK’ COMMON POINT 
1023 ’ 7 BREAK: JSR KWBSY CK IF 
{ps4 Boseue’ pocees f7eces {he BRRENT fe 16 BREAK Exb Count 
102s 003646’ 052767 O00200 174126 BIS #BRKFLG, DFLGWD ? THe BREAK F 
Wg 003654’ 004767 000734 WRBRCM: JSR PC, CKWBSY 0 0 cK. If WRITE IS IS BUSY 
198 exes 474 uy (RO)? T WR TA 
i, nN 3662 * 
ips Beseee pisees i5eus2 Moy Reds HRBRR B if be si BYTE COUNT 
1031 003672’ 005725 TST (RS)+ 
1938 O03674" 7 110 174100 BIC #WRTERM+WRIERR, DFLGWD SBOKE TT INTERRLP 
1 , 7? 174114 CLR ERRI CLEAR T ERROR at RS CATOR 
1034 003706’ CLR PTOCNT(R3) RESET THE TIMEOUT COLINTERS 
1035 003712” 175454 ¢LR TOCNT 
103% 003716’ Q0S06/ 175i CLR URSIZE s INITIALIZE 4 0F yBYTES WRITTEN 
nN37 Pe" t ° 

1038 03756" O1e7e7 1 oon020 MOV —«TVCTAD, SOS tGET INT VECTOR BASE AOR 
1038 003734" Obe7b? og0004 oo001e2 R00 #4, SOS sPOINT HT AT WRITE’S VECTOR 
1041 ried ete 12 utie seems JSR fe Sand *GO SET UB ERITE?S INT VECTOR 
1042 003754’ o00000 SO$:  .WORD XXXX : INT VECTOR ADR 
1043 003756’ o00000 60$: [WORD  XXXX : p 
Ie Geer EE rau aie Sue ectlt HE SE Sq 
1046 nee Nees aint 1754S2 BIT 8MODEBT , PCSRV ?IN ISOCHRONOUS MODE? 
1047 003774’ 001403 BEQ 70S :N, Y-70$ 
1048 003776’ 016767 174004 175374 MOV SCNT, ISCNT : INITIALIZE INT’S SYNC CHAR CNT 
1049 04004" O4e764 000001 000004 70%: BIC #BRK’ TCSR(RY) ;RESET THE BREAK BIT IN TCSR 
1050 O04012’ 173762 _ BIT #BRKFLG, DFLGWD :DOING A BREAK INST? 
1051 o04020" BEQ 80S ?Y, N-80$ 
1052 oo4022" 00004 a BIS a8 CSR sgeT THE BREAK BIT IN TCSR 
{ped netics sera - Ble uBBey eet i Mi TES Bos abey FLAG 
1055 OO4044’ OS; 000010 BIS #UT4HIOT, (R :SET WAITING FOR 1/0 TERM 
1056 Oo4OeD" 56764 000140 op0004 BIS STINTENSTDRALE, TCSR(R4) :SET BOTH INT ENABLES 
10 04056’ 000644 BR RDWREX GO CK WAIT/NOWAIT FLAG 


a ee a ee RO 


nt ee me in ne ae ee ee eee ee eee ee 


MAINDEC-11-DTDUA-A 
OT 


DUAA.Pi1 


1059 


1 


BESRR LORE SSR RE 


b+ bs b= bb Bb poe be be pe bh bs fe be bs be Pe be he he 
BBVRRE OHO 
he 


b+ b+ b> be bb be bb Ph Fam 


ee 
WwrreO 


004340’ 


DU11 DEVICE ROUTINE FOR 


MPG 


DU11 READ INTERRUPT SERVICE ROUTINE 
-SBTTL OU11 READ INTERRUPT SERVICE ROUTINE 


175214 


173566 
173560 
ooooo4 
173836 


173512 
173500 


DURINT: 


RDRBSY: 


CLRUTF: 
INTEX: 


DSCERR: 


RDERR: 


RDE1: 


RDE2: 


;RECEIVER INTERRUPT ENTRY POINT 


Recnas meses 


w 
toa] 


ap 


SS 


4 ZIT 4 2 
OoOAOOAVOAMNOW 


Bee o-00 Se ben] 
DZMrHz 


MACY11 27(732) 


2 St 


RR 
race choralets i 


T 
Y 


RDADR, RO 
PC, aPUTBYT 
RO; RDADR 
BYRD+e 

YRD 
ROSIZE 
RDBCNT 

INTEX 

wRDBSY DFLGWD 


BRINTEM BEC TERscHsyC, cms trees ee 


ST INTEN, CSR 
SWRBSY , DFLGWD 
SWT4IOT, (RB) 
RO, RESREG 
ORTNINT 
#RDIDSC, DFLGWD 
#ROIERR, OFLGWD 
Ri 


24-SEP-76 14:10 PAGE 8 


BO ErORE ALE Bev fo peu RS 


; INTERRUPT COUNT 
i000 iT UP PR Prog TEL es RCSR ADRS 
io 

; LENORE DATA 


eet t S76RED RUF 


;DATA SET CHG BINT? 


:N, Y= 
on OR IN STORED RBUF WORD? 
CNT = Q? 


eet CHG ON 1ST TIME 


A_ADR 
TE IN MEM 
A_ADR 


;RESET READ BUSY FL “ 
a el TERMINATION FLAG 

ARCH SYNC 8 INT ENB FOR RO 
;1S WRITE int ENABLE SET? 


TF 
re xi pus” 


*NLY =INTEX 
*RESET WAITING FOR I/0 TERM 
RESTORE REGISTERS RO THRU RS 
‘EXIT FROM INTERRUPT 


ABD tT DATA nee oa. ay FLG 
:SET THE REBD READ NTERRUPT ERR FLAG 
iS THERE AN OVERRUN ERROR? 


AAD. 1 TO OVR ERROR CNTR 
51S. T A FRAMING ERROR? 


a 1 TO FRM ERROR CNTR 
Re A PARITY ERROR? 
a 


RBSY 
TO PAR ERROR CNTR 
:GO TERNINATE THE READ 


SEQ 0053 


eee e+ 2 


. 
a a ee at LTT TT tT 


MAINDEC-11-DTDUA-A bull DEVICE RQ TINE FOR MPG MACY11 27(732) 24-SEP-76 14:10 PAGE 9 @ oos4 
DTDUAA.P11 DU11 WRITE INTERRUP iM VICE ROUTINE 

ig .SBTTL DU11 WRITE INTERRUPT SERVICE ROUTINE 

111 

1118 ; TRANSMITTER INTERRUPT ENTRY POINT 

1120 

1121 04342’ 004067 001370 DUWINT: JSR RO, SAVREG ;SAVE REGISTERS RO THRU RS 

ll22 004346’ 005267 175072 INC WRICNT “ADD 1 TO WRITE INTERRUPT COUNT 

1123 0043S2’ 004767 O0141e JSR PC, SUPTAD :SET UP PROG TBL 8 

Lied 356’ 016467 174760 MOV TESRCRY) WITCSR sgt NT TCSR CONTENTS 

ll 364° O11467 174 MOV (R4) WIRCSR :ST SR ALSO 

1126 004370” ? 174750 TST SR *DNA SET IN STORED TCSR? 

1127 004374’ 76 BMI :N.Y 

1128 004376’ 7 174776 TST ISCNT ‘SENDING SYNC CHARACTERS? 

1129 o0440e2" BEQ :¥ N-WXDATA 

1130 ’ 116764 173374 000006 MOVB SYNC, TBUF(RY) "LOAD ANOTHER SYNC CHAR 

1131 12’ hoeae 174762 DEC t *DECR CNT 

1132 004416’ 000423 BR INCBC -GO ADD 1 TO BYTE COUNT 

1134 oO04420’ 005767 174740 WXDATA: TST WRBCNT sANY MORE DATA BYTES TO SEND? 

1135 O044>4" 014 BEQ WCKPAD : 

1136 OO04426’ 012701 000377 MOV #377,R1 t PRESET TO THE BREAK DATA 

1137 004432’ 032767 000200 173342 BIT #BRKFLG, DFLGWD :DOING A BREAK INST? 

1134 DONYNS” BIGTER 174714 MOV HRADR Ce DAT 

1140 oo4446’ 173424 JSR Pe oct BYT T NEXT DATA BYTE IN R1 

1141 OO44S2’ 010067 174704 MOV WRADR ;STORE NEXT DATA BYTE ADR 

ite OOH 005367 174702 10$: DEC WRACNT :DECR THE bare COUNT 

114 * 110164 O00006 MOVB = RI, TBUF (RY) iL TA | 

1144 DOWNES 7 174 WINCBC: INC BYUR+2 TO TOTAL BYTES 

1145 , 7 17471 ADC BYWR : 

114% OO4476’ 005267 1 INC WRSIZE ;ADD_1 TO THIS MSG’S SIZE 

1a? 004S02’ 000663 BR INTEX *GO TO INT EXIT 

1149 OO4SO4’ 00S767 174672 WCKPAD: TST PADCNT ; ALREADY SENT A PAD CHAR? 

1150 004510’ 001005 WRRBSY Y 

1151 O04Sie’ O0S064 CLR TBUF (R4) ‘LOAD A BYTE OF a" S 

1152 004516’ 005267 174680 INC:  PADCNT 1 TO CN 

1153 004522’ 000761 BR WINCBC G0 eaticr BYTE CO COUN TS 

1154 O04S24’ 042767 000002 173250 WRRBSY: BIC #WRBSY , DFLGWD ; SET WRITE BUS 

1155 004532’ 052767 OO0010 173242 BIS auRTE RM, DFLGWD ITE TERMINATION FLAG 

1156 OO4S40" 04 000161 o00004 BIC STSERD+INTEN® TONALE SRK, Peano cus sRESET SEND, WR INT ENB, 3 BRK 

1157 o04546’ 042714 BIC #ROTS, (R4) *RESET REQ’ TO SEND 

1158 O045S2’ 032714 000100 BIT #RINTEN, (RY) 3 READ INT ENABLE SET? 

1159 04556’ 001633 BEQ CLRUTF ?N. Y-CLRWTF 

1160 004560’ 032767 000001 173214 BIT #ROBSY , DFLGHD 515 READ BUSY? 

1161 OO4566’ 001627 BEQ CLRUTF’ N-CLRWTF 

116 004570’ 000630 BR INTEX a TO INT EXIT 

1164 004572’ O0S267 174636 DNAERR: INC DNACNT :ADD 1 TO DNA ERROR CNT 

1165 004576’ 052767 O00100 173176 BIS SWRIERR, DFLGWD ‘SET THE WRITE INT ERROR FLAG | 

1166 004604" 000747 BR WRRBSY :G0 TERMINATE THE WRITE 
| 
i 


me rm ce a e+ ee we ee ee 


ee nee ene ee eee 





MACY11 27(732) 24-SEP-76 14:10 PAGE 10 SEQ 00SS 


.SBTTL SUBROUTINES FOR DU11 FUNCTION ROUTINES 


;CHECK IF DU11 READ OR WRITE IS BUSY AND WAIT IF IT IS 


SESRRLGSL SSE SRREDRE SIS otal Zana 


SRG 1G 


So IRR eERES 


ae 
004 174432 


a et a ht ht Pe Pe bt bh ht hb pe bp bh bb Be eh eh eh op -o e e e pe ph e p e 


iat) 
bo 
oo 


nae ho Cas 
: * CKBEY BotH Y S/R CALL 


: DESTROYS RO,R3,R4 
:ON EXIT: R3 = PROG TBL ADR 
. R4¥Y = RCSR ADR 


#1, RO ;SET UP CK READ FLAG 
cKtom :GO TO COMMON POINT 

#100000, RO ;SET_UP CK WRITE FLAG 

CKCOM GO TO COMMON POINT 

#100001 , RO ;SET UP CK RD 8 WR FLAGS 

PC, SUPTAD ;SET UP PROG TBL & RCSR_ADR’S 
RO ; CHECK FOR READ INT ENABLE? 
SRINTEN, (RY) RENO INT ENABLE ON? 

30$ :N, Y-30S 

RO CHECK FOR WRITE INT ENABLE? 


7¥ 
STINTEN#TDNAIE, TCSR(RY) “WRITE INT ENABLES SET? 


RS, acTOBSY eet gre 


#ROTERM+WRTERM,DFLGWD  ;HAVE TO PROCESS PREV TERMINATION? 
STMADR Y 


;Y,N-STMADR 
RO,-(SP) “SAVE RD/WR CK 
PCAPR ™ 380 £ INATION 
(SP)+, ;REST 
10S GO RECHECK INT ENABLE 
RS, OBJADR :SAVE CURR USER STMNT ADR 
#4’ OBJADR 


;EXIT IN-LINE 


€; 


£8 


Lo 
4% 
©Je-« 


> -* > + <0 + 6-- 9 + p< 
OCD) ~ IU 6 


TUroromorunorty 


o 


v 


0+ 0-0 -* 0-2 0 B-28-<® +P pe he oh oe <8 


lato 
tf 


Ss aaah 


Ww 
oe 


poiaan 


CUR<8 DULL DEVICE ROUTINE FOR MPG MACYL1 27(732) 24-SEP-76 14:10 PAGE i0-i sE3 CSE 
SUBROUTINES FOR DULL FUNCTION ROUTINES 


;PROCESS TERMINATION OF PREVIOUS [1/0 FUNCTION 


, JJSR PC, PROCTM S/R CALL 
[RQ = PROG TABLE ADR 
‘DESTROYS RO 
010146 PROCTM: MOV RI, (SP) [SAVE RL & RE 
» BAB5e3 00004 173044 108: B11 sige oF. a :NEED TO DO REAG TERMINATION’ 


Rites IN ag ya se Se pA a 
uae BE LAER it Bor 


3 
Es 

wr 
i 
ae 
a~ 
3 


uae #3 
CeCe 


? T ; 
7 BEQ sf -Y¥ N-20$ 
, 7? 900040 173004 BI wit Wibe WAS IT A DATA SET CHG? 
776’ OO1 9 14 rY N-14S 
* QO4SE7 000274 ISR RS_ERRRIS "REPORT DSC ERROR ON READ 
* 9014 . WORD -ERMBAS 
, BR 1 :GO RESET ERROR FLGS 
, 000264 148: JSR RS. ERRRIS :60 ISSUE READ XFER ERROR MSG WITH 
’ 00140 .WORD RXPERR-ERMBAS *S INT STATUS 
‘ O00060 172756 168: §8IC SRDIERR+RD IDSC , DFLGWD I AD Int E ERR FLAGS 
: be76/ 000010 172746 20S: Bir TERM, DFLGHD Paty te TERMINATION? 
’ 7 17 BIC aur GHD WRITE’S PROC FLAG 
* 016767 rege 1ograe V ee Sen EE Ger IL ei GAITEN 
* 004767 O00064 JSR PC RWIATV RESET WR Tes S ar WE cTOR 
, 7 OOO0100 172716 BIT 8WRIERR, DFLGHO : A WRITE INT ERROR? 
eee aooze4 Bee RS CERAM SO TeCeE ORITE XFER ERROR MSG WITH 
° : 6 ; 
* 001467 WORD Ree Ene Pampas :WRITE’S "NT S amen 
’ 042767 000109 172790 BIC SWRIERR, OFLGHD "RESET WRiTE INT ERR FLAG 
Oe" 172742 308: JSR RS, SCUPCER 69 TO HP RR RETN POINT 
, 10 BR 1 G0 CK F THER TERMINATION 
10’ C12602 PROCEX: MOV (SP)+,Re *RESTCRE R1 & R2 
12’ 012601 MOV (SP)4+'RI 
14° RTS pe EXIT IN-LINE 


_panore =11-DTDUA-A_ DU 
_ DTDURA.Pi1 SUBROUT 


1295 


pee tuaciuscse hi 


WW) 
ob 
MeO 


2 


one 


11 DE 
INES 


172700 


nN< 
Bo 


000010 


po00i8 


RRINTV: 


108: 
208: 


RWINTV: 


305: 
40§; 


40$: 


G MACYL1 27(732) 
OUTINES 


;RESET INTERRUPT VECTORS S/R’S 
;JSR = =PC,RRINTV 
. »RWINTV 


'R3 = PROG TBL ADR 


DESTROYS RO 
gr RS, TRVECT 
ry Reale 
WWORD XXKX 
RTS PC 
JSR RS, TWVECT 
BR 40g 
MOV IVCTAD, 30S 
ADD 84, 308 
JSR RS’ SCLRVEC 
WWORD XXX 
RTS PC 


;TEST INTERRUPT VECTORS S/R’S 
JSR 8G, Tevet 
TWVECT 


'BR LABEL 
?R3 = PROG TBL ADR 
DESTROYS RO 
: MOV VCT 
MOV Br EAORtASS, -<SP) 
‘JSR RS. aTSTVEC 
. WORD 
WORD  DURINT-. 
Pe ots 
RTS RS 
a 
MOV PFWADR(R3),-(SP) 
ISR RS. JTSTVEC 
-WORD XX 
“WORD  DUWINT-. 
BR 40$ 
TST (RS)+ 
RTS RS 


ee en nee me a a we + + eee — ee. oe 


24-SEP-76 14:10 PAGE 10-2 


Be i bath VECTOR CONTROL 


GET READ INT VECT AOR 
GO HAVE MPG CLEAR IT 


sEXIT IN-LINE 

;GO0 CK IF I ie VECTOR CONTROL 
;BR IF I DON’T 

;GET READ INT VECT ADR 
;POINT IT AT WRITE’S VECTOR 
;GO0 HAVE MPG CLEAR IT 


sEXIT IN-LINE 


ee VECTOR S/R_CALL 
ITE VECTOR S/R CALL 
EXECUTED IF NOT SAME 


ea RUPE 


Sint 11 at TRIE Sy VECTOR 


ADR TO IDENTIFY ME 
OR_ CON 


spi Mave V cr ~ 

; WILL TELL ME SINCE I CAN'T 

; T aT koe MEM_IF MEM MGMNT 
F I ee TR 


;BR 
BYPASS BR INST IN S/R CALL 
EXIT IN-LINE 


SES 0057 


ee ee ee a a 


| MAINDEC-11-DTDUA-A L fey iis CE ROUTINE FOR MPG MACY11 27(732) 24-SEP-76 14:10 PAGE 10-3 
| OTDURA.P11 SUBROUTI NES FOR DU11 FUNCTION ROUTINES 


~~ 
iw 
~ 
£ 


315 
318 ERROR INFORMATION DISPLAY S/R 
Se ;JSR RS, ERRC S/R CALL FOR CURR STATUS 
| 3318 :  ERRR : S/R CALL FOR READ INT STATUS 
: ERRW S/R CALL FOR WRITE INT STATUS 


; WORD MSGADR-ERMBAS REL ADR OF ERROR MSG 
?R3 = PROG TABLE ADR 
‘DESTROYS RO,R1,R2 


l 
l 

1 

l 

1 

1320 

1321 

1322 

1323 

1304 

ee 

1367 005262’ 012767 173530 900326 ERRCS: HOV ecSTAT-ERSTAO, ERSTAD ;STORE ADRS OF CURR STATUS 
1329 ppesse: eat BR Pea tOn nope :GO TO COMMON POINT 

Ae OTe Oeree ea DOOD ERRRIS: Oy Seletat-encone Epeiay = ineranie 
iS Bea BAEZ BY Baer BS Etbon pox 

1335 005316’ 012767 173522 000272 ERRWIS: MOV SWISTAT-ERSTAD, ERSTAD sSTORE ADRS OF LAST WRITE 
1338 005324" 012767 173666 O00lee MOV SWISTAT-EBSBAS;EBSTAT INT STATUS 

1338 005332’ 012567 o0006e2 ERRCOM: MOV (RS) +, ERMBAS ;STORE MSG ADR 

1339 005336’ 012767 OO0001 172456 MOV #1 ERAT :SET THE ERROR INDICATOR 
1340 005344’ 032763 O2e0400 9o00002 BIT SOQERCK +PRONER, POPSH(R3) “ERROR CHECKING OR PRINTING INHIBITED? 
1341 005352’ 001152 BNE :¥ N-ERREX 

1345 Soesee’ pibeue MOY Re BP) SAVE RY 8 RS 

1344 eee. peeps CLR RY :SET USER MODE PRINT FLAG 
1345 005362’ 004767 oo044e2 JSR PC, DISUNM “DISPLAY DEVICE I.D. 

134% 005366’ 010700 MOV PC’ RO :GET START AOR OF ERROR MSG 
1347 905370" 000030 ADD BERMBAS-. , RO 

1348 ’ 061000 ADD (RO). RO 

1349 005376’ 012701 177777 MOV #-1,R1 s INITIALIZE MSG LENGTH 

1350 05402" 1 10$: INC Rl :ADD 1 TO LENGTH 

1351 OOS4O4’ 105 TSTB 2s (RQ)+ :MSG TERMINATOR? 

1352 005408’ 001 Os :Y.N-10 

1353 005410’ 010167 o00006 MOV R1, ERMBAS+2 :STORE MSG LENGTH 

1354 O0S414" 004567 000536 JSR RS’ PRINT :PRINT ERROR MSG SPECIFIED 
1355 005420’ go0006 ERMBAS: .WORD xKX 

1356 O0S422" “ WORD 

1357 OO0S424’ 026727 177770 001577 CMP ERMERS, , SIVMODE-ERMBAS =; INV MODE MSG OR HIGHER? 
1358 005432" | BHIS :N, Y= 

1359 005434’ 010701 MOV PC. RI :GET ADR OF CODE AREA IN ERR MSG 
1360 005436’ 062701 001535 ADD sCOOFLD-. ,R1 

1361 2’ 010700 MOV PC. RO ;SET UP ADR OF ERROR CODE TBL 
1362 444° 062700 000236 ADD #ERCOTB-. ,RO 

1363 O054S0’ 010702 MOV PC Re :SET UP ADR OF STORED DEV REG’S 
1364 005452’ 062702 EBSBAS: ADD (PE) +, Re 

1365 4’ 173674 EBSTAT: .WORD CSTAT-EBSEAS 

1366 456’ 012767 000013 oc0124 MOV 708 s INITIALIZE MSG LENGTH 

1367 Hey 01274 00024 MOV $20 -(SP) : INITIALIZE CODE FIELD CNT 
1368 470’ 012205 iss: MOV (R2)$,R5 :GET NEXT DEV REG WORD 

1268 005472" 000305 SWAB Ss -GET DESIRED BYTE IN LOW BYTE 


' 
‘ 
{ 
} 
' 
t 


Bee 11-DTDUA-A_ OUI 1 DEVICE ROUTINE FOR 
, DTOURA.P SUBROU 


1370 
1308 
137, 


1 

1373 
1376 
1377 
1378 
1379 


o-p>-+p 


Pe retiytrert tt ekics 


b= & + bb b+ & > bb 6 = = 0 bh + b= bo bh 9 bs hb be po ho pe 
hee 


pete te tnt 


a 


ii 
—— 
ru 


it 
wee 7ee6hUhehtCl. 


ee 


tts 
ate 
4 


; ee 
+ 
‘ 


a 
i 


ay 


cee 


=) 
e 


005700’ 


MPG 
TINES FOR DULL FUNCTION ROUTINES 


20$: oe 
000377 CMPB 
2 
l Be 
177770 40§: Ic 
CMP 
BHI 
ooo0sc ADR 
INC 
oocde4 CMP 
BEQ 
oooos4 ACVB 
DEC 
Sos: MOVB 
60S: RR 
ooo0e4 CMP 
BEQ 
000350 JSR 
. WORD 
70S: WORD 
000236 80$: JSR 
ERSTAD: .WORD 
oood22 ERRSNM: MOV 
110$: MOVB 
ooo004 173520 Bro 
icin 
1208: TST 
MOV 
001152 
iee 04 JSR 
40 001140 MOV 
000266 JSR 
. WORD 
. WORD 
MOV 
MOV 
ERREX: RTS 


MACY11 27(732) 

(RO)+,R4 

RY 

60S 

0377,R4 
>,RS 

4 

He ago 

eas 

8177770, R4 

RY, (SP) 

R4, 70S 

Py 


fe 

(SP), #20. 
SOs 

o. Gan 
(RO)+, (Rij}+ 
(SP) 


50s 
Os 
4 
(SP)+, 820. 


RS. PRINT 
ERBMSG-. 


32. 
5, DISPST 
XKKX 

PSRCST (3), .RO 
4(RO}, OBJADR 


24-SEP-76 14:10 PAGE 10-4 


sGET i. & LENGTH BYTE 
THE CODE TBL? 


ab 70 NXT DEV REG WORD? 
TALS BIT SET IN DEV REG BYTE? 
iTeocate ENT 
; POINT T a C 
CK FOR NXT 
TE 1.0. 
otc ROOM FOR 


egy Fee ppTusgon wre 
IFIRST ERROR’ COOE IN Msc? 


‘AOE Co COMMA TO MSG 
sR REMAINING 8 ROOM IN. MSG 
MOVE ERROR C 


ira ihe Roo IK MSG 
Dei et cao 


ANY ERROR CODES PUT IN MSG? 
tN ISSUE ERROR BITS MSG 


TEL ENTRY 
LENGTH + 1 
OR NAME? 


;DISPLAY DEVICE REG'S 
OF Pine 1 at 
eee 
RROR OCCUR oN THIS STMNT? 
maT STMNT 


sn 
T_ # DATA 
| UP DATA OU put ADR 


CONVERT IT TO AaCtT > 
OW DIGITS TO SPACES 
+7 UE STMNT # MSG 


sRESTORE RS 8 RY 
sEXIT IN-LINE 


SES 0059 


_ MAINDEC 
DTOUAR. 


Pi 


11-DTDUA-A_ OU) 
i SUSR 


OUuTI 


1 DEVI 
NES FO 


042200 


CE ROUTINE FOR MPG 
R DUL1 FUNCTION ROUTINES 


040516 


ERCOTB: 


MACY11 27(732) 24-SEP-76 14:10 PAGE i0-5 


;ERROR MESSAGE CODE TABLE 


-BYT 
A 


;377 = GO TO NEXT DEVICE REGISTER WORD 
'BYTE O CONTAINS FLAG BITS & 1.0. NAME LENGTH 
BITS 0-2 = LENGTH OF SIT MASK + 1.0. NAME 
;BYTE 1 IS THE BIT MASK 

[BYTES 2 THRU ? ARE THE BIT’S ASCII 1.0. 


377 


<003><200> /RX/ ;RBUF: BITS 15 - 8 
«004><« 100> /0VR/ 

<004> <O40> /FRM/ 

 Misaadianess 

<004%> <200> /DNA/ ;TCSR: SITS 15 - 8 
0 ; TABLE TERMINATOR 


SES 0060 


, MAINDEC-11-DTDUA-A 


, OTDUAA.P11 


005776" } 
00&00e’ 
006006’ 00 


SUBRO 


000205 


OU 
UT 


11 DEV 
INES 


172006 
177776 
172016 


172004 


IC 
FOR 


E ROUTINE FOR MPG MACY11 27(732) 24-SEP-76 14:10 PAGE 11 
DU11 DEVICE ROUTINE 


SAVREG: 


RESREG: 


SUPTAD: ! 


STSTAT: 


~SBTTL SUBROUTINES FOR DUI! DEVICE ROUTINE 


;SAVE REGISTERS RO THRU RS 
; JSR RO, SAVREG S/R CALL 


MOV R1,-(SP) ;SAVE RO THRU RS 
MOV Re, -(SP) 

MOV R3,-(SP) 

MOV RY, -(SP) 

MOV RS,-(SP) 

MOV RO,PC sEXIT IN-LINE 


;RESTORE REGISTERS RO THRU RS 


; JSR RO,RESREG S/R CALL 
TST (SP)+ ;RESTORE RS THRU RO 
MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,R 
MOV (SP)+,R1 S 
RTS RO seXIT IN-LINE 


;SET PROGRAM’S PROG TABLE ADR IN R3 & RCSR ADR IN RY 

; JSR PC ,SUPTAD S/R CALL 
;SET UP LOCATION ZERO ADF 
;SUBTRACT PROG TBL LENGTH 
GET DEV REG BASE ADR (RCSR) 
RTS PC EXIT IN-LINE 
;STORE DEVICE’S STATUS REGISTERS 


;JSR_ -RS,STSTAT S/R CALL 
:.WORD STADR-. REL STORAGE ADR 


‘nestRoys RO,R1 


:GET REL STORAGE ADR & MAKE 
ADD RRend Rl ‘IT ABSOLUTE 
MOV DREGAD, RO GET DEV 


REG ADR 
MOV (RO)+, (R14 STORE ALL READABLE DEV REG'S 
MOV (RO)+; (R1)+ 
MOV (RO)+, (R1)+ 


RTS RS sEXIT IN-LINE 


me en es ey 


SES G06) 


a ere ees a eee 
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aa 

150 sDISPLAY DEVICE I.D. AND DEVICE REGISTER ADDRESS 

1504 ws PC, DISUNM S/R CALL 

1506 = CMND/USER MODE PRINT FLAG 

1507 in = PROG TBL ADR 

1508 : DESTROYS RO,R1,R2 

1511 006030" 916709 171770 DISUNM: MOV DREGAD, RO ;GET DU11 DEV_REG ADR 
1512 006034’ 004577 172016 ISR RS, JBINASC ‘CONVERT BINARY # TO ASCII 
1513 oos04o" . WORD SCI-. 

1514 06042’ 004567 000110 ISR RS, PRINT :G0 ISSUE DEV I.D. MSG 
1515 OO604%6’ 000323 .WORD  UNITMG-. 

1516 o0060S0’ 900022 “WORD 18. 

1517 o060S2’ 000207 RTS PC sEXIT IN-LINE 

1539 

1520 : TAILOR STATUS MSG & PRINT IT 

1522 ;JSR_ RS,DISPST S/R CAL 

1523 >.WORD STATADR-. REL AOR” OF STATUS DATA 
152s : DESTROYS RO,R1,Re 

1527 O060S4’ 010502 DISPST: MOV 5 :GET T PEL 08 pare ADR 

15208 006056’ 062502 ADD (RS)+,R2 : Mi 

1529 006060’ 010701 MOV PC CET at Pi OF REG NAMES IN ASCII 
1530 OO06062’ 062701 172034 ADD #OVREGS-. ,RI 

1531 006066’ 012746 000003 MOV #3,-(SP) ;STORE # OF REGISTERS TO DISPLAY 
1532 006072’ 012167 000316 10$: MOV (R1L)+, DVRGMG ?MOVE REG NAME TO MSG 
1533 006076’ 012167 000314 MOV (R14, DVRGMG+2 

1534 006102’ 005721 TST (R1)+ :BYPASS DISP VALUE 
1535 006104’ 012290 MOV (R2)+. RO ;GET REG’S STORED VALUE 
1536 006108’ 010746 MOV pc, -(§P) T uP afk OF WRITE 
1537 006110’ 062716 173234 ADD sWiTCSR-. , (SP) SINT STATUS 

1538 006114’ Oe2b02 CMP (SP)+,R2 THIS THE UNUSED WD IN WP INT? 
1539 006116’ 001413 BEQ 20S 

1540 006120’ 010146 MOV R1,-(SP) PAE Rl & Re 

1541 006122’ 010246 MOV Re. -(SP) 

1542 006124’ 004577 171726 ISR RS: JBINASC :CONVERT IT TO ASCII 
1543 006130’ 000272 .WORD DVRGDT-. 

1544 006132’ 004567 o00020 JSR RS, PRINT ;PRINT THE STATUS MSG 
1545 006136’ 000256 .WORD DVRGMG-. 

1546 006140’ oO0001¥ “WORD le. 

1547 006142’ 012602 MOV (SP)+,R2 :RESTORE R1 & Re 

1548 006144’ 012601 MOV (SP)+'RI 

1549 006146’ O0S316 203: DEC (SP) ;DECR REG CNT 

1550 006150’ 001 BNE 10$ :DONE ALL? -10$) 
1551 006152" c0S726 TST (SP)+ “REMOVE CNT FROM STACK 
1552 o06154" o00205s RTS RS :EXIT IN-LINE 


a oo 
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SU aa aaa 


SUBROUT 


11 DEVI 
INES FO 


000040 


oooocs 
171632 
171622 


1716le 


009010 
000006 
171566 


CE ROUTINE FOR MPG 
FOR DU11 DEVICE ROUTINE 


oo00S6 


PRINT: 


10S: 


20$: 


40S: 


Sos: 


60$: 
PRTEX: 
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; ISSUE MSG TO LIST DEVICE SUBROUTINE 
;JSR_=s- RS, PRINT S/R C 


:- HORE pevane 


TBL 


:R4 


'R3 = PROG ADR 
= FLAGWORD -- IF NEGATIVE, USE CMND MODE PRINT 


Bel. BO OF MSG 
5 ie CNT (IF NEGATIVE, 


T PRT DEV DEDICATED. ) 


: DESTROYS RO,Ri,Re 


RS, RO 
(R5)+,RO 


;GET MSG ADR & MAKE IT ABS 


(R5)+_R T 
fv ” tbe Em SobE PRINT? 

PC, Re cet ry LINK INFO ADR 
#20$-. ,Re 

Re, RO . A MAKE MSG POR REL 

R1’ (Re) ia ORE Ra's 6 3 BYTE. COUNT 
10$ :CNT NEG? ( 

(Re) :MAKE IT post? TE 
FASCIN(RS PROGNM :SLORE PROG’S S # IN MSG 
PHAR. 

RS, ACLIST s ISSUE MSG SPECIFIED 

XXKX 

pepe s ISSUE A <CR> & <LF> 

SRTEX ;G0 TO EXIT 

RO, 50S :STORE MSG’S ABS ao 

Ri; 60 :STORE ITS BYTE CNT 

RS, QULIST -GO TO MPG TO ISSUE THE MSG 
XXXX 

RS sEXIT IN-LINE 
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DUAA.P FORMATS FOR PROGRAM & DEVICE ROUTINE TABLES 
1654 .SBTTL FORMATS FOR PROGRAM & DEVICE ROUTINE TABLES | 
ibe : PROGRAM TABLE FORMAT 
eB oco242 PTLGTH= 162. | ;PROGRAM TABLE LENGTH - NON MEM MGMNT VERSION OF MPG 
1660 :(PTLGTH= 212. ;PROGRAM TABLE LENGTH - MEM MGMNT VERSION OF MPG) 
16 ooo000 PFLGWD= +0. sPROGRAM FLAG WORD - 1 WORD 
1664 TOP= 2 ; 1s R THIS 
ieee pRetop= § bd BRR HOR AS STOPPE SRE 
LBB WTAIOT= 10 ; 15 WAITING FO FOR I 1/0 0 TERMINATI 
1668 SETDED= 6p is THiS PROG SET HE PRT A OGRE. FLAG 
i eee teams gen seer oe 
1671 ape +8000 fs THiS, er0 gues Tt  aMleys, ba FOR EXECUTION) 
1673 POPSW= +2. sPROGRAM’S OPERATION SWITCHES - 1 WORD 
1675 STONER= 190800 ; 2 STOP PROG EXECUTION UPON ERROR REOR 

age ® = 
16 ; 1s 6 CHT BRENT ! ON ERROR 
1678 : 0 = NOT USED 
1679 : O = NOT USED 
1680 : 1 = CY THE DEVICE LIST 
1681 : | = CYCLE ON SAME DEVICE UPON ERROR 
1682 : | = DON’T DO ERROR CHECKING ! 
1683 : | = DEVICE SPECIAL OPERATION 
1684 : 0 = NOT USED | 
TEBE 5 Ne OO NOT PIROMATICALLY- DISPLAY COUNTS | 
ta bts BO Fg af P OF FINAL PASS ONLY 
tee Gh PRINT EERST BAD BYTE ONLY ON VERIFY” | 
1690 fis FIRST BaD BYTE Oh TED MSG | 
169 PFWADR= +4. ;#;PROGRAM FLAGWORD ADDRESS - 1 WORD 
1634 PASCIN= +6. sPROGRAM’S NUMBER IN ASCII - 1 WORD 
1696 PNAMES +8. sPROGRAM’S NAME IN ASCII - 6 BYTES 
1698 PROIOA= +14. sADDRESS OF READ I/0 AREA - 1 WORD | 
1700 PWRIOA= +16.  ;ADDRESS OF WRITE 1/0 AREA - 1 WORD 
1708 PSRCST= +18. | ;SOURCE STATEMENTS START ADDRESS - 1 WORD | 
1704 POBJST= +20.  ;OBJECT CODE START ADDRESS - 1 WORD | 
1708 PLNGTH= +22.  ;PROG AREA LENGTH (OBJ END MINUS PROG TBL START) - 1 WORD 
1708 | 





PTOCNT= +24. 31/0 TIMEOUT COUNT - 1 WORD 
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1710 000032 PMDLCD= +26. ;DEV ROUT MODEL # CODE - 1 WORD 
cis 000034 POPNTR= +28. ;CURRENT DEVICE NUMBER POINTER - 1 BYTE 
ite 000035 PCURDV= +29. ;CURRENT DEVICE # - 1 BYTE 
ite 000036 PDNUMS= +30. ;DEVICE NUMBERS - 16 BYTES 
12i8 000056 PTEMO= +46. ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
4760 000060 PTEMI= +48. ;USER PROGRAM contenens STORAGE - 1 WORD 
17cs 000062 PTEMe= +50. ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
ive3 000064 PTEM3= +52. ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
178 000066 PTEMY= +54. ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
ives 000070 PTEMS= +56. ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
1730 000072 PTEMb= +58. ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
He 000074 PTEM7= +60. ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
7 000076 PTEM8= +62. ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
17% 000100 PTEMS= +64. ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
fe} 000102 PTEMIO= +66. ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
ime 000104 PTEM11= +68. ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
17s 000106 PTEM12= +70. ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
fans 000110 PTEMI3= +72. ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
fa 000112 PTEML4= +74, ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
178 000114 PTEMIS= +76. ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
1750 000116 PNBR= +78. ;NUMBER OF BYTES TO TRANSFER ON MOVE (NBR) - 1 WORD 
178e 000120 PSRC= +80. ;DATA SOURCE ADDRESS ON MOVE (SRC) - 1 WORD 
imee 000122 POST= +82. ;DATA DESTINATION ADDRESS ON MOVE (DST) - 1 WORD 
iS 000124 PSTKCT= +84. ;# OF WORDS (X 2) SAVED OFF STACK - 1 WORD 
17e8 000126 PSTKSV= +86. ;STACK WORDS STORAGE AREA - 30 WORDS 
70 000222 PSVREG= +146.  ;USER’S RO THRU RS REGISTERS STORAGE AREA - 6 WORDS 
17 000236 PUSRPC= +158.  ;USER’S CURRENT PROGRAM COUNTER - 1 WORD 
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;FOLLOWING ENTRIES (PRDIOX THRU PUBMAP) ARE ONLY IN MEM MGMNT VERSION 

; (PRDIOX= +160. ;18/22 BIT ABSOLUTE ADDRESS OF READ 1/0 AREA - 2 WORDS) 
;(PRDIOV= +164. ;18 BIT VIRTUAL ADDRESS OF READ 1/0 AREA - 2 WORDS) 

;(PWRIOX= +168. ;18/22 BIT ABSOLUTE ADDRESS OF WRITE 1/0 AREA - 2 WORDS) 
;(PWRIOV= +172. ;18 BIT VIRTUAL ADDRESS OF WRITE I/0 AREA - 2 WORDS) 

; (PUPARS= +176. ;STORAGE AREA FOR USER’S PAR’S 0 THRU 7 - 8 WORDS) 

; (PUPDRS= +192. ;STORAGE AREA FOR USER’S PDR’S 0 THRU 7 - 8 WORDS) 

;(PUBMAP= +208. ;1ST UNIBUS MAP REG # AND # OF REGS USED - 1 WORD) 

END OF MEM MGMNT ONLY ENTRIES 


000240 PTSIZE= +160. ;PROGRAM TABLE SIZE IN BYTES - 1 WORD - NON MEM MGMNT 
;(PTSIZE= +210. ;PROGRAM TABLE SIZE IN BYTES - 1 WORD - MEM MGMNT VERSION) 
000242 PTEND= +162.  ;END OF PROGRAM TABLE - NON MEM MGMNT VERSION 


;(PTEND= +212. ;END OF PROGRAM TABLE - MEM MGMNT VERSION) 
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FORMATS FOR PROGRAM & DEV 


000116 


DRTLTH= 


bevasz= 
DEVFWD= 
DEVIW1= 
DEVIWe= 
DEVIW3= 
DEVIW4= 
DEVIWS= 
DEVIW6= 
DEVIW7= 
DEVIW8= 


DKILAD= 
DECTAD= 
DTOEAD= 
DEVIOB= 
DEVDER= 
DVUPRT= 
OVCPRT= 
DEVBTA= 
DVBTDA= 
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ICE ROUTINE TABLES 


DEVICE ROUTINE TABLE 


78. 


+0. 


& Fa 


+40. 
+42. 
+44, 
+46. 
+48. 


;DEVICE ROUTINE TABLE LENGTH 


;DEVICE ROUTINE SIZE IN BYTES - 1 WORD 

;DEVICE ROUTINE FLAGWORD - 1 WORD 

;DEVICE INTERFACE WORD # 1 - 1 WORD 

;DEVICE INTERFACE WORD # 2 - 1 WORD 

;DEVICE INTERFACE WORD # 3 - 1 WORD 

;DEVICE INTERFACE WORD # 4 - 1 WORD 

;DEVICE INTERFACE WORD # S - 1 WORD 

;DEVICE INTERFACE WORD # & - 1 WORD 

;DEVICE INTERFACE WORD # 7 - 1 WORD (SIZE) 

;DEVICE INTERFACE WORD # 8 - 1 WORD (ERR) 

;DEVICE REGISTERS ADDRESS - 1 WORD 

;DEVICE INTERRUPT VECTOR ADDRESS - 1 WORD 

;DEVICE READ PROCESSOR STATUS WORD (BUS REQ) - 1 WORD 
;DEVICE WRITE PROC STATUS WORD (BUS REQ) - 1 WORD 
;DEVICE ROUT HOUSEKEEPING ROUT REL ENTRY ADR - 1 WORD 
;DEVICE ROUT REPORT ROUT REL ENTRY ADR - 1 WORD 
;DEVICE ROUT KILL ROUTINE REL ENTRY ADR - 1 WORD 
;DEVICE ROUT ERROR COUNTER REL ADR - 1 WORD 

;DEVICE ROUT TIMEOUT ERR ROUT REL ENTRY ADR - 1 WORD 
;DEVICE 170 BUSY BRANCH ADDRESS (CIOBSY) - 1 WORD 
;DEVICE ERROR BRANCH ADDRESS (CUPGER) - 1 WORD 

;USER MODE PRINT BRANCH ADDRESS (ULIST) - 1 WORD 
;CMND MODE PRINT BRANCH ADDRESS (CLIST) - 1 WORD 
;CONVERT BINARY TO ASCII BR ADR (BINASC) - 1 WORD 
;CONVERT BINARY TO DECIMAL ASCII BR ADR (BTASLZ) - 1 WORD 


SEQ 0068 


a) Li-D7OURSA OU 


STD 


Sra ae ak 


# 


<8 0 8 8 + os oh Hh OR Re pee 


RRP RRRRE 


S388 


alos 


: 


ii 


FORMAT 


of BROERAN 


VICE 
PROGRAM 


ROUT 
S DEVICE Rog ROUTINE TABLES 


OVPOTA= 
DVSFWD= 
OVSVEC= 
OVCVEC= 
OVTVEC= 
OVRINT= 
DVGETB= 
DVPUTB= 
DEVSTP= 
DEVETP= 
OVPTEP= 
DVVTEP= 
DVCTEP= 
DVIWSP= 
ORTEND= 


+50. 
+52. 
+54. 
+56. 
+58. 
+60. 
+62. 
+64. 
+66. 
+68. 
+70. 
+72. 
+74, 
+76. 
+78. 


END 
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;°°NVERT PACKED DECIMAL TO ASCII BR ADR ‘DECASC. - 1 WORD 
;°) . YSTEM FLAGWORD ADORESS (CSYSFW) - 1 WORD 

;SET INTEHRUPT VECTOR BR ADR (SETVEC) - 1 WORD 

;CLEAR INTERRUPT VECTOR BR ADR (CLRVEC) - 1 WORD 

; TEST INTERRUPT VECTOR BR ADR (TSTVEC) - | WORD 
;RETURN FROM INTERRUPT BR AOR (RTNINT) - 1 WORD 

;GET DATA BYTE BR ADR (GETBYT) - 1 WORD 

;PUT DATA BYTE BR ADR (PUTBYT) - 1 WORD 

;DEVICE ROUT REL SYMBOL TABLE POINTER - | WORD 

;DEVICE ROUT REL ENTRY TABLE POINTER - ! WORD 

;PACK TABLE EXTEN. REL POINTER - 1 WORD 

;VECTOR TABLE EXTEN. REL POINTER - | WORD 

;COMPILER TBL EXTEN. REL POINTER - 1 WORD 

;DEVICE INTERFACE WORD SYMBOL TSL REL POINTER - | WORD 
;END OF DEVICE ROUTINE TABLE 


SE3 S069 


ae -mrerene. tree -eeee va ome 


a a i er rt FS ee I sae nae 
‘ 








: 8 §  geaeS og 
a 
ese ee 
5 7 ape atpvits fetyle ee tenereccbennere ne 
_ 22 BB ARBRE ARBARAEAE ABE BRAE BB GRRE AR oe 
| SneeeemamemmEctt 
oS eee eae ne 
£8 S888 88 8 SABANY  sABBEEENENON ay ae 
S “ 
Caan ae 
soa EE 
x pe | yee ae eae 





— ce ee "5 e 
8 ss888 S 88 888 8 S8sssesssssessess sesessss 
eee ae ees 
sau cease Noe cad eae 


"SYMBOL TABLE 





| MAINDEC-11-DTDUA-A DU DEVICE ROUTINE FOR NPG 


DTOURA. P11 


TT NT ES = 


S gages 88 sess sy 8 
a 


| 
eo 
| 333 ={s 
| 


a 
Sei: 


Sees Seese 8 8 


s OPS So 
wees eee 


ees 





p04 


MACY11 27(732) 24-SEP-76 14:10 PAGE 14-1 


| 
| 
| 
: 
| 
| 





STSTAT QOGO10R 
SUPTAD 005770R 
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